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READABLE HIGH SPEED PUNCH/READER COPIER 


\ 

[ 

DECUS Program Library Write-up DECUS NO. 8-382 


Object 

To interpret ASCII characters into a readable binary format. It accepts 40 
ASCII characters but space has been left for the remainder of the ASCII set. 

Used in conjunction with the high speed reader, a readable leader can be 
produced and attached to a tape to be copied. 

This program was originally produced with the object of producing a form of 
Kimbbtlltag. By punching readable references on all library tapes, a stock 
check program could be used to check all the tapes held in a library, by 
reading, say the first six inches of tape. Comparing the readout with a list 
held in store and punching out a list of missing tapes. This stock check was 
being formulated, but,unfortunately, I lost access to a DEC machine. 

Operating instructions. 

Starting address 0200. 

High speed punch/reader on. 

Teletype on-line. 

Depress start on PDP 8 

Teletype keyboard can now be used. Depressing a key will result in the character 
concerned being punched by the high speed punch. 

When all required characters have been punched, place tape to be copied in the 
high speed reader. Depress ALTMODE key on the teletype. 

Six inches of blank tape will be produced and the tape will be copied. 

Stop the computer manually when the trailer is reached otherwise a spurious 
character will be punched. 

Restarting at 0200 for the next job. 

Restrictions . 

This program is not complete. It does what it is supposed to do but final 
debugging was mi not completed. The program was in the couse of being modified 
so that when it read 50 (8) blanks the reader would halt. This was being done 
in subroutine CON, but this does not appear to work. There is also a fault which 
is only apparent intermittantly. On depressing ALTMODE the leader is produced but 









instead of reading, the computer halts. An error in the listing is immediately 
apparent *542 should be *543 and in the character table from location 0760 
1 should be added to the contents of each location, ie 0760 0543 

0761 0546 

0762 0552 

At present the above fault makes no difference to the working of the program, 
because 0537 is a blank. 

Program description 

The program commences with initialising. The character is read in from the 
keyboard stored and then checked for CRLF ( which are omitted ) and ALTMODE. 

If none of these, the LH six bits are masked out and added to SOC the 
character address pointer. The contents of the resultant address determine the 
address of the start of the appropriate vector sequence. This address is stored 
in MKAD and the contents of it are stored in &B&&1. This is rotated six bits 
right and masked, to remove the second vector. The first vector is punched. 
Ch.431 is masked to remove the first vector and the second is punched. The 
Mark address is incremented and the process is repeated until six vectors 
have been punched. 

Receipt of ALTMODE produces a JMP to LDR, whereon 106 (8) blanks are produced 
at the end of which any tape in the reader will be read. 

Alteration of character shape . 

Character design is a matter of personal choice and ingenuity. 
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Above is the character representation for the letter A 

The vector sequence is 7611 

1111 

7600 

By following the above format any character can be packed six vectors to three 
words. 

The Matrix is 6x5. The last vector 00 gives a space between characters. 
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The principle is adaptable and further reference can be made to Mr. Murray's excellent 
character generator program for the KV8 graphic display. 

As explained before, the author no longer has access to a DEC PDP 8 but any assistance 
required in connection with this and/or the Stock check program is readily available 
from the author. 













/PROGRAM TO PUNCH ON HSP LEGIBLE CHARACTERS 




/AND COPY PROGRAM 




*200 



0200 

7300 

START, 

CLA CLL 

/INITIALIZE 

0201 

6046 


TLS 


0202 

6026 


PLS 


0203 

6016 


6016 


0204 

1736 


TAD 1 BUFF 


0205 

3337 


DCA CHAR 


0206 

6031 

NEXT, 

KSF 

/GET A CHARACTER 

0207 

5206 


JMP .-1 


0210 

6036 


KRB 


0211 

6046 


TLS 


0212 

3737 


DCA 1 CHAR 

/STORE IT 

0213 

1737 


TAD 1 CHAR 


0214 

1340 


TAD M215 

/IS IT CR 

0215 

7650 


SNA CLA 


0216 

5206 


JMP NEXT 

/YES GET NEXT CHAR 

0217 

7100 


CLL 


0220 

1737 


TAD 1 CHAR 

/NO, IS IT LINEFEED 

0221 

1341 


TAD M212 


0222 

7650 


SNA CLA 


0223 

5206 


JMP NEXT 

/YES GET NEXT CHAR 

0224 

7100 


CLL 


0225 

1737 


TAD 1 CHAR 


0226 

1335 


TAD MODE 

/NO IS IT ALTMODE 

0227 

7650 


SNA CLA 


0230 

5275 


JMP LDR 

/YES PRODUCE LEADER 

0231 

7100 


CLL 


0232 

1342 


TAD C3 


0233 

3344 


DCA VCNT 

/INITIALIZE COUNTER 

0234 

1737 


TAD 1 CHAR 


0235 

0345 


AND MASK77 

/STRIP CHARACTER 

0236 

1346 


TAD SOC 


0237 

3350 


DCA MKAD 

/GET CHARACTER ADDRESS 

0240 

4242 


JMS MARK 


0241 

5206 


JMP NEXT 


0242 

0000 

MARK, 

0 

/VECTOR ROUTINE 

0243 

7300 


CLA CLL 


0244 

1750 


TAD 1 MKAD 


0245 

3347 


DCA PUND 


0246 

7200 

PUCH, 

CLA 


0247 

1747 


TAD 1 PUND 

/GET FIRST 2 CHARS 

0250 

3343 


DCA CHARI 


0251 

1343 


TAD CHARI 


0252 

7012 


RTR 


0253 

7012 


RTR 


0254 

7012 


RTR 


0255 

0345 


AND MASK77 

/REMOVE 2ND VECTOR 

0256 

4267 


JMS PUNCH 

/PUNCH 1ST VECTOR 

0257 

1343 


TAD CHARI 
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0260 

0345 


AND MASK77 

026 } 

4267 


JMSPUNCH 

0262 

2347 


ISZ PUND 

0263 

2344 


ISZ VCNT 

0264 

5246 


JMPPUCH 

0265 

5642 


JMP 1 MARK 

0266 

7000 


NOP 

026 7 

0000 

PUNCH, 

0 

0270 

6021 


PSF 

027 1 

5270 


JMP .-1 

0272 

6026 


PLS 

0273 

7200 


CLA 

0274 

5667 


JMP 1 PUNCH 

0275 

7300 

LDR, 

CLA CLL 

0276 

1332 


TAD CTR1 

0277 

3334 


DCA CTR2 

0300 

1333 

AGN, 

TAD BLK 

0301 

4267 


JMS PUNCH 

0302 

2334 


ISZ CTR2 

0303 

5300 


JMP AGN 

0304 

6016 


6016 

0305 

4325 

CON, 

JMS READ 

0306 

3353 


DCA DIG 

0307 

1353 


TAD DIG 

0310 

7650 


SNA CLA 

0311 

5313 


JMP .+2 

0312 

5322 


JMP TROL 

0313 

2351 


ISZ SPCNT 

0314 

7000 


NOP 

0315 

7300 


CLA CLL 

0316 

1352 


TAD M50 

0317 

1351 


TAD SPCNT 

0320 

7650 


SNA CLA 

0321 

7402 


HLT 

0322 

1353 

TROL, 

TAD DIG 

0323 

4267 


JMS PUNCH 

0324 

5305 


JMP CON 

0325 

0000 

READ, 

0 

0326 

6011 


RSF 

0327 

5326 


JMP .-1 

0330 

6016 


6016 

0331 

5725 


JMP ! READ 

0332 

7672 

CTR1, 

-106 

0333 

0000 

BLK, 

0 

0334 

0000 

CTR2, 

0 

0335 

7403 

MODE, 

-375 

0336 

1400 

BUFF, 

1400 

0377 

0000 

CHAR, 

0 

0340 

7563 

M215, 

-215 

0341 

7566 

M212, 

-212 


/PUNCH 2ND VECTOR 


/PUNCH ROUTINE 


/PRODUCE LEADER 


/IS IT A SPACE? 

/YES INCREMENT SP COUNT 


/SPACE COUNT = 50 HLT 


/READ SUBROUTINE 
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0342 

7775 

C3, 

-3 


0343 

0000 

CHARI 

0 


0344 

0000 

VCNT, 

0 


0345 

0077 

MASK77, 

77 


0346 

0720 

SOC, 

0720 


0347 

0000 

PUND, 

0 


0350 

0000 

MKAD 

0 


0351 

0000 

SPCNT, 

0 


0352 

7730 

M50, 

-50 


0353 

0000 

DIG, 

0 





PAUSE 




*403 



0403 

0000 


0000 


0404 

0000 


0000 


0405 

0000 


0000 


0406 

7611 


7611 

/A 

0407 

mi 


1111 


0410 

7600 


7600 


0411 

7745 


7745 

/B 

0412 

4545 


4545 


0413 

3?00 


3200 


0414 

3641 


3641 

/c 

0415 

4141 


4141 


0416 

2200 


2200 


0417 

7741 


7741 

/D 

0420 

4122 


4122 


0421 

1400 


1400 


0422 

7745 


7745 

/E 

0423 

4545 


4545 


0424 

4100 


4100 


0425 

7705 


7705 

/F 

0426 

0505 


0505 


0427 

0100 


0100 


0430 

7641 


7641 

/G 

0431 

4151 


4151 


0432 

7200 


7200 


0433 

7710 


7710 

/H 

0434 

1010 


1010 


0435 

7700 


7700 


0436 

4141 


4141 

/I 

0437 

7741 


7741 


0440 

4100 


4100 


0441 

2040 


2040 

/J 

0442 

4137 


4137 


0443 

0100 


0100 


0444 

7710 


7710 

/K 

0445 

2442 


2442 


0446 

0100 


0100 


0447 

7740 


7740 

/L 

0450 

4040 


4040 


0451 

4000 


4000 
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0452 

7701 

7701 

/M 


0453 

0601 

0601 


0454 

7700 

7700 



0455 

7702 

7702 

/N 


0456 

0410 

0410 


0457 

7700 

7700 



0460 

3641 

3641 

/o 


0461 

4141 

4141 


0462 

3600 

3600 



,0463 

7711 

7711 

/P 


0464 

1111 

1111 


0465 

0600 

0600 



0466 

3641 

3641 

/Q 


0467 

5136 

5136 

• 

0470 

4000 

4000 


0471 

7711 

7711 

/R 


0472 

1131 

1131 


0473 

4600 

4600 



0474 

2245 

2245 

/s 


0475 

5121 

5121 


0476 

0200 

0200 



0477 

0101 

0101 

/T 


0500 

7701 

7701 


0501 

0100 

0100 



0502 

3740 

3740 

/u 


0503 

4040 

4040 



0504 

3700 

3700 



0505 

1720 

1 720 

/V 


0506 

4020 

4020 


0507 

1700 

1700 



0510 

7720 

7720 

/w 

• 

0511 

1420 

1420 


0512 

7700 

7700 



0513 

6112 

6112 

/X 


0514 

0412 

0412 


0515 

6100 

6100 



0516 

1710 

1710 

/Y 


0517 

5050 

5050 


0520 

7700 

7700 



0521 

4161 

4161 

/z 


0522 

5145 

5145 


0523 

4300 

4300 



0524 

0077 

0077 

/c 


0525 

4141 

4141 


0526 

0000 

0000 



0527 

7777 

7777 

/ 


0530 

7777 

7777 


0531 

7700 

7700 



0532 

0041 

0041 

/ 1 


0533 

4177 

4177 

1 

0534 

0000 

0000 



0535 

0402 

0402 

/ T 
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S 



0536 

7702 


7702 

0537 

0400 


0400 

0540 

0000 


0000 

0541 

0000 


0000 

0542 

0000 

*542 

0000 

0542 

0000 


0000 

0543 

0000 


0000 

0544 

0000 


0000 

0545 

0000 


0000 

0546 

5700 


5700 

0547 

0000 

*604 

0000 

0604 

0000 


0000 

0605 

0000 


0000 

0606 

0000 


0000 

0607 

0000 


0000 

0610 

0000 


0000 

0611 

0000 

*612 

0000 

0612 

0004 


0004 

0613 

0404 


0404 

0614 

0000 


0000 

0615 

4000 


4000 

0616 

0000 


0000 

0617 

0000 

*621 

0000 

0621 

4020 


4020 

0622 

1004 


1004 

0623 

0200 


0200 

0624 

3641 


3641 

0625 

4141 


4141 

0626 

3600 


3600 

0627 

0042 


0042 

0630 

7740 


7740 

0631 

0000 


0000 

0632 

4261 


4261 

0633 

5145 


5145 

0634 

420,0 


4200 

0635 

6.041 


6041 

0636 

4547 


4547 

0637 

7500 


7500 

0640 

1014 


1014 

0641 

1277 


1277 

0642 

1000 


1000 

0643 

4645 


4645 

0644 

4545 


4545 

0645 

3000 


3000 


/SPACE 

/*. 

/- 

/. 

// 

/0 
/I 
/2 
/3 
/4 
/ 5 
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0646 

3651 

3651 

/6 

0647 

5151 

5151 

0650 

3100 

3100 


0651 

4121 

4121 

/7 

0652 

1105 

1105 

0653 

0300 

0300 


0654 

2651 

2651 

/8 

0655 

5151 

5151 

0656 

2600 

2600 


0657 

0611 

0611 

/9 

0660 

1111 

1111 

0661 

7700 

7700 



PAUSE 

/CHARACTER TABLE 


• 

0720 

0403 

*720 

SOCT, 

0403 

/* 


0721 

0406 


0406 

/A 


0722 

0411 


0411 

/B 


0723 

0414 


0414 

/c 


0724 

0417 


0417 

/D 


0725 

0422 


0422 

/E 


0726 

0425 


0425 

/F 


0727 

0430 


0430 

/G 


0730 

0433 


0433 

/H 


0731 

0436 


0436 

/I 


0732 

0441 


0441 

/J 


0733 

0444 


0444 

/K 


0734 

0447 


0447 

/L 


0735 

0452 


0452 

,/M 


0736 

0455 


0455 

/N 


0737 

0460 


0460 

/o 

• 

0740 

0463 


0463 

/P 


J0741 

0466 


0466 

/Q 


J0742 

0471 


0471 

/R 


J0743 

0474 


0474 

/s 


,0744 

0477 


0477 

/T 


0745 

0502 


0502 

/U 


0746 

0505 


0505 

/V 


0747 

0510 


0510 

/w 


0750 

0513 


0513 

/X 


0751 

0516 


0516 

/Y 


0752 

0521 


0521 

/Z 


0753 

0524 


0524 

/r 


0754 

0527 


0527 

// 


0755 

0531 


0531 

/ j 


0756 

0534 


0534 

/ i' 


0757 

0537 


0537 

/ 


0760 

0542 


0542 

/SPACE 


0761 

0545 


0545 

/ • 
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/ 


0762 

0550 

0550 

A 

0763 

0553 

0553 

A 

0764 

0556 

0556 

/$ 

0765 

0561 

0561 

/% 

0766 

0564 

0564 

/& 

0767 

0567 

0567 

/' 

0770 

0572 

0572 

/( 

0771 

0575 

0575 

/) 

0772 

0601 

0601 

/* 

0773 

0604 

0604 

A 

0774 

0607 

0607 

A 

0775 

0612 

0612 

/. 

0776 

0615 

0615 

/. 

0777 

0621 

0621 

// 

1000 

0624 

0624 

/0 

1001 

0627 

0627 

/I 

1002 

0632 

0632 

/2 

1003 

0635 

0635 

/3 

1004 

0640 

0640 

/ 4 

1005 

0643 

0643 

/5 

1006 

0646 

0646 

/6 

1007 

0651 

0651 

A 

1010 

0654 

0654 

/8 

1011 

0657 

0657 

/9 
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V 





A 


G 


N 

0300 

BLK 

0333 

BUFF 

0336 

CHAR 

0337 

CHARI 

0343 

CON 

0305 

CTR1 

0332 

CTR2 

0334 

C3 

0342 

DIG 

0353 

LDR 

0275 

MARK 

0242 

MASK77 

0345 

MKAD 

0350 

MODE 

0335 

M212 

0341 

M215 

0340 

M50 

0352 

NEXT 

0206 

PUCH 

0246 

PUNCH 

0267 

PUND 

0347 

READ 

0325 

SOC 

0346 

SOCT 

0720 

SPCNT 

0351 

START 

0200 

TROL 

0322 

VC NT 

0344 
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